€ 
€ 
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coritentti 

Df::FINL- command 

DEFINB/KEY 

KEYSOF — Set key definition option fiap& 

KEYROP --- Reset key definition option flags 

KEYTYP -"- Set key definition type 

KEYADD — Add a new key definition 

KEYDEL — Delete a key definition 

KEYTXT ■- Accrue key definition string 

KEYSRC — Search for key definition 

KEYREti - Create PLAS region for key definitions 

KFYMAP -- Map PAR 1 to key definition reqion 

KEYUMP — Unmap the key definition region 

KEYELR -■ Eliminate the key definition region 

SHOW KEYS 

KlrlYPR! ••— ■ Print key definition 

KEYCO!) — Print key name bated ov) code 

INIUKD "- Init user key definitionB from parent job 

KEYMQV — Move key definition data from parent job 

RECALL command 

GtrTSYF ~- Accept Bystem logon paiicword 



le of 


C 


6- 




7- 




S~ 




8- 


3 


8- 


15 


9- 




10- 




11- 




12- 




13- 




14- 




15- 




16- 




17- 




18- 




19- 




20- 




21- 




22- 




■DQ- 















TSKM2B -■ 


--- Keyboard DEFINE Com.fia 




1 








2 
3 








4 


000000 






5 
6 
7 


000000 






8 

<y 
i ( ) 








11 

12 
13 








14 

15 
16 








17 
IS 
19 








20 
21 
22 








23 
24 
25 








26 

27 
28 








29 
30 
31 








32 
33 
34 








35 
36 
37 








38 
39 
40 








41 
42 

43 








44 
45 
46 








47 








43 




0000 11? 




49 




000015 




50 




000040 




51 




0000C7 




52 




00001.1 




53 




000014 




54 




000054 




55 




000400 




56 




132500 
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. T:rTi..E TSKM2B 

. ENABL I. C 

. DSABL GBL 

. CSECT TSKri2D 



Keiiboard DEFINE Command routines 



TSKM2B : 



TSKH2B is the portion of TSKMOM that contains the code 
to imple?ment the DEFINE c onimand. 

Copyright 1985. 

S&H Computer Systems^ Int.. 

Nat^hvi 3. 1 e, Tenness&fe" 

Macro calls 

. MCALL . ELRG, . ELAW, . CRRG, . CRAW> . TTYOUT.. . PFUNT 
. i-ICALL . LOOKUP, . READW, . CLOSE, . TTYIN 

Global definitions 

. GLOBL CMDDEF, SHOKEY> INIUKD, GETSYP, CMDRCL 

Global references 

. GLOBL $DOOFF, LSW, EM*SLO, LSW7, *SLON, SLSPTR, SLLPTR, SLRPTR 

. GLOBL EM*CSE. PRTFIX, SPACE2, SLLEND, SLLBUF, INVOPT 

. GLOBL P2*VIR, F.TXPRV> *SCCA, LSW5, PRIVA2, PRIVC2i *PRGLK 

. GLOBL LSW2.. CVTUC, VOFFin.. ACRTXT, RCLREV 

. GLOBL SYPSWD, SYPBPR.. *ECHO, *NOIN, LSW3, *SUCF. LSW9 

. GLOBL TM*KND, TM*GL D, CRLF, R. GSIZ, W. WSIZ, W. NLEN, BLKO 

. GLOBL RSFBLK, ERRLOC, EM*KNS, ACRDEC 

. GLOBL VSLEDT, EM*NSL, RS. NEW, RS. EGR, KEYRCB, PRTSPC, KD*TYP 

. GLOBL INVOPT, ILLCHD, EM*KCR, EM*KWC, WS. CRW, EM*KNT 

. GLOBL BLKO, ACRSTR, KEYHXT, EM*STL, W. NRID, W. NSTS, WS. MAP 

. GLOBL R. GID, R. OSTS, RS. CRR, RS. GBL, RS. CGR, RS. PVT, XAREA, VPARl 

. GLOBL KF*ECO, KF'STRH, KT*GLD, CVTTAB, SKPSPC, SEARCH, AMBOPT, FKILL 

. GLOBL KT*NRM, OP T LSI, KT*LET, KD*COD, KD*FLG, KD*TXT, RDCMD, KEYPAR 

. GLOBL VKEYMX, KD^HSZ, EM*KTF, KT*GLT, EM*KNU, KEYRCB, RC*BAS 

. GLOBL KC*KPO, KCIiKP 1 , KC*KP2, KC*KP3, KC*KP4, KC*KP5, KC*KP6 

. GLOBL KC$KP7, KC*KPB, KC*KP9, KC*DOT, KC$COM, KC*MIN, KC*ENT 

. GLOBL KC*UP, KC*DWN, KC$LFT, KC*RIT, KC*E1, KC*E2, KC*E3, KC*E4 

. GLOBL KC*E5, KC*E6, KC*F6, KC*F7, KCfFS. KC$F9, KC*F10, KC*Fli 

. GLOBL KC*F12, KC*F13, KC*F14, KC*F15, KC«Fi6, KC*F17, KC*Fi8 

. GLOBL KC$F19, KC^FPO, KC*PF1, KC*PF2, KC*PF3, KC*PF4 



Assembly constants 



LF 

CR 

BLANK 

BELL 

TAB 

FF 

COMMA 

BLKWDS 

WLDNAM 



15 

40 

07 

11 

14 

54 

256. 

132500 



LINE FEED 
CARRIAGE RETURN 
ASCII SPACE 
ASCII BELL 



HORIZONTAL 

f^ORM FEED 

COMMA 

# OF WORDS 

RAD50 /*/ 



TAB 



IN DISK BLOCK 
< WILDCARD) 



I 
I 
< 

1 

i 

€ 

f 

i 

€ 

i 
i 
i 
i 

i 
\ 
I 
I 
I 
I 
( 
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t 
< 
i 
i 



4 


OGOOOG 


000000 


5 


000002 


000000 


6 




000003 ' 


7 


000004 




8 


000014 


000000 


9 






10 






U 






12 


000016 


000000 


13 


000020 


000000 


14 


000022 


ooooooc 


15 

16 


000024 


042641 014716 


r7 
la 






19 


000030 


000 


20 


000031 


001 


21 


000032 


000000 


22 


000034 


000000 


23 


000036 


000000 


24 


000040 


000000 


25 


000042 


000000 


26 


000044 


0000000 


28 






29 






30 


000046 


000 126 


31 


000050 


000017 


32 


000052 


000000 


33 


000054 


000000 


34 


000056 


0000000 


35 






36 






3'/ 






38 


000060 


000 1 1 7 


39 


000062 


000000 


40 


000064 


000001 


41 






42 






43 






44 


000066 


000 126 


45 


000070 


OOOOOr' 


46 


000072 


00000 J 


47 






40 






49 






50 


000074 


072 040 




000077 


000 


51 


000100 





200 



; Data 


ar-L^as, 




KFLAG: 


. WORD 





KCODE: 


. WORD 





KTYPE 


™ 


KCODE+1 


f^SFNAM: 


. BLKW 


4 


RCLPTR: 


. WORD 






Flags set during parsing 

Type and code value 

Key type code is in upper byte of KCODE 

Local copy of PLAS region swap file name 

F'tr to save area for RECALL command 



Heflion definition block for key definition region 



KRDB: . WORD 

. WORD 

. WORD RS. GBL i RS. CGR ! RS. P VT 

. RAD50 /KEYDEF/ 



Will get addr of region control blk 
# 64-byte blocks needed for region 
Status flags 
Region name 



Window definition block uE-ed to map PAR 1 to key definition region 

KWDB: BYTE O iWill get window ID 

Select PAR 1 
Will get base virtual address 

# 64~byte blocks for uiindoui 
Addr of region control block 
Offset into region of window base 

# 64--byte blocks to map 
Status flags 

Emt ST(i block to copy key definition data from our parent job 



; Parent job number 

;Page number of data 

.; Address of destination buffer 



. BYTE 





. BYTE 


1 


. WORD 





. WORD 





. WORD 





. WORD 





. WORD 





. WORD 


WS. MAP 



HMTUKC: 


. BYTE 


0, 126 




. WORD 


17 




. WORD 







. WORD 







. WORD 


BLKO 



Emt arg block to set a TT read timeout 



RDTIME 



. BYTE 
. WORD 
. WORD 



0, 117 

O 

1 



; Timeout value (0.5 second units) 
; Timeout signal character 



Emt arc) block to log ofJ- and drop DTR after short time 



Time before DTR dropped 



HNGEMT: 


. BYTE 

. WORD 
. WORD 


0, 126 

2 
1 


; Byte 


data 




CDLSPC: 


. ASCIZ 


/: /<200> 


KTEXT: 


. BLKB 
. EVEN 


SO. 



; Key definition text string 



TSKM2E 
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i 
I 



3 
4 
5 
6 
7 
8 
9 
10 
1,1. 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
2b 
26 
27 
28 
29 
30 
31 
32 
33 

O/i 

v»; ■ T 

35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
4t5 
46 
47 
40 
49 
50 
51 
52 
53 
54 
55 
56 
57 



Macro to cause a fatal error message to be printed. 

. MACRO FERR MBC 

MOV R5. -CJF^) 

MOV MSG, R5 

CALL FPRINT 

MOV (SP)+,Rb 

. ENDM FERR 



Macro to print a fatal error mes5a.qe> clean up 
and then jump to RDCMD. 

. MACRO FAB OR 7 Mt><i 

MOV MSO. R5 

v-'Mf^- FKILL 

. ENDM FABORT 



Macro to print a ujarnincj me & sage 

. MACRO FWARN MBfe 

MOV R5, -<GF) 

MOV MSG, R5 

CALL PRTWRM 

MOV <SP)+, Rb 

. ENDM FMARN 



Macro to start a standard option table. 

Name -= 1 to 4 character table name. 

NA = Number of arguments per table entry. 



. MACRO TBLDEF 

NARGS ---^ NA 

. CSECT CMDV2B 

NAME'HD: .WORD 2-«NA 

. ENDM TBLDEF 



NAMl:, NA 



Macro to enter an option text name and a set of parameters 

into the currently open table. 

STRNG •- Ascii name 

A>}i>C - Set of option parameters to store in table with name. 



MACRO CMDDEF B"! RNG.. A, B> C 

CSECT NAME2B 





. ASCIZ 


/STRNG/ 








, CSECT 


CMDV2B 








. WORD 


L 




> 




. WORD 


A 






I .IF 


GE. <NARGS-2> 


. WORD 


B 


I IF 


«E, <NARGS-3> 


. WORD 


C 




. ENDM 


CMDDEF 







i POINTER TO NAME STRING 
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58 i 

59 ; Macro to end a set of table entries. 

60 i 

61 . MACRO TBLEND 

62 . CSECT CMDv'2B 

63 . WORD 

64 . CSECT T5KM2B 

65 . ENDM TBLEND 
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Define initiai qualifiers for the DEFINE command. 



4 
5 
6 
7 

a 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 



000220 
000002 
000006 



000012 
000020 
000026 
000034 
000042 
000050 
000056 
000064 



TBLDEF DEF, 1 
CMDDEF KEY, DEFKEY 
TBLEND 



Define qualifiers for the? DEFINE/KEY command. 

TBLDEF KEY> 2 

CMDDEF ECHO, KEYSOF^ KF'fiECO 

CMDDEF NOE-K-CHO.. KEYROP, KF*ECO 

CMDDEF TER^MINATE, KEYSOF, KF*TRM 

CMDDEF NOT*£RMINATE, KEYROP, KF*TRM 

CMDDEF GO*LD, KEYTYP, KT*GLD 

CMDDEF NOG*OLD, KEYTYP, KT*NRM 

CMDDEF LEH^TER, KEYTYP, KT*LET 
TBLEMD 



TSKM2B 
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3 




4 


000220 


5 


000070 


6 


000074 


7 


000100 


B 


000104 


9 


000110 


10 


000114 


11 


000120 


12 


000124 


13 


000130 


14 


000134 


15 


000140 


16 


000144 


17 


000150 


IS 


000154 


19 


000160 


20 


000164 


21 


000170 


22 


000174 


23 


000200 


24 


000204 


25 


000210 


26 


000214 


27 


000220 


28 


000224 


29 


000230 


30 


000234 


31 


000240 


32 


000244 


33 


000250 


34 


000254 


35 


000260 


36 


000264 


37 


000270 


38 


000274 


39 


000300 


40 


000304 


41 


000310 


42 


000314 


43 


000320 


44 


000324 


45 


000330 


46 


000334 


47 


000340 


48 


000344 


49 


000350 


50 


000354 


51 


000360 


52 


000364 


53 


000370 


54 


000374 


55 


000400 


56 


000404 


57 


0004 i 



Def? 


ne names 


of keys and associated co 


de values 




TDLDEF 


KNM. 1 






CMDDEF 


PFl,KC*^PFi 






CMDDEF 


PF2, KC*PF2 






CMDDEF 


PF3, KC<^PF3 






CMDDEF 


PF4, KC*PF4 






CMDDEF 


KPO, KC^KPO 






CMDDEF 


KP 1 > KC*KP 1 






CMDDEF 


KP2, KCi^KP2 






CMDDEF 


KP3, KC*KP3 






CMDDEF 


KP4, KC*KP4 






CMDDEF 


KP5, KC>$KP5 






CMDDEF 


KP6, KC*Kf^6 






CMDDEF 


KP7, KC$KP7 






CMDDEF 


KP8, KCf KP8 






CMDDEF 


KP9, KC*KP9 






CMDDEF 


0. KC*KPO 






CMDDEF 


1,KC*KP1 






CMDDEF 


2, KC*KP2 






CMDDEF 


3, KC*KP3 






CMDDEF 


4, KC*KP4 






CMDDEF 


5, KC*KP5 






CMDDEF 


6, KC*KP6 






CMDDEF 


7, KC*KP7 






CMDDEF 


8, KC*KP8 






CMDDEF 


9, KC*KP9 






CMDDEF 


PER-ftlOD, KC-iiDO 1 






CMDDEF 


CDM-»-MA, KC*COM 






CMDDEF 


MIN*US, KC*MIN 






CMDDEF 


ENT-«-ER, KC*ENT 






CMDDEF 


LEFT, KC*LFT 






CMDDEF 


RIGHT, KCIiRri 






CMDDEF 


UP, KC*UP 






CMDDEF 


DO, KC*F16 






CMDDEF 


DOWN, KCIiDWN 






CMDDEF 


FIND, KC*E1 






CMDDEF 


<INS*ERT-HERE>, KC*E2 






CMDDEF 


REM*OVE, KCt.E3 






CMDDEF 


SEL#ECT, KC*P4 






CMDDEF 


<PREV*-SCREEN>, KC*E5 






CMDDEF 


<NEXT«-SCREEN>, KC*E6 






CMDDEF 


E1,KC*E1 






CMDDEF 


E2, KC*E2 






CMDDEF 


E3, KC*E3 






CMDDEF 


E4, KC*E4 






CMDDEF 


E5, KC*E5 






CMDDEF 


E6, KC«E6 






CMDDEF 


HELP,KC-4iF15 






CMDDEF 


F6, KC*f-6 






CMDDEF 


F7, KC*F7 






CMDDEF 


FS, KCf FB 






CMDDEF 


F9, KC*F9 






CMDDEF 


FIO, KC15FK) 






CMDDEF 


Fll, KC«F11 






CMDDEF 


F12, KC$F.12 
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53 000414 


CMDDEF 


F13,KC*F13 


59 000420 


CMDDEF 


F14,KC$F14 


60 000424 


CMDDEF 


F15, KC*F15 


61 000430 


CMDDEF 


F16, KC$F16 


62 000434 


CMDDEF 


F17,KC*F17 


63 000440 


CMDDEF 


FIS, KC$Fi8 


64 000444 


CMDDEF 


F19, KC*F19 


65 000450 


CMDDEF 


F20, KC*F20 


66 000454 


TBI.. END 





53 Page 5-1 



TSKM2B -- Keyboard DEFINE Comma MACRO V05. 04 Monday 21--Dec-87 12: &3 Page* 6 
DEFINE command 



1 



4 








5 








6 








7 

















9 


000220 


004767 


OOOOOOQ 


10 








U 








12 








13 


000224 


004767 


ooooooe 


14 


000230 


121327 


000057 


15 


000234 


001001 




16 


000236 


00520;< 




17 








18 








19 








20 


000240 


012704 


000000 ' 


21 


000244 


004767 


ooooooe 


22 


000250 


103401 




23 


000252 


00013^ 




24 








25 








26 








27 


000254 


00570''i 




28 


000256 


00 1 404 




29 


000260 







30 000270 



. SBTTL DEFINE cummftiui 

Process the DEFINE commartd. 

I n p u t s : 
Rl ~ Job index number- 
R3 = Pointer to start of qualifiers for DEFINE command. 

CMDDEF: CALL CVTTA8 > Convert tab and FF chars to spaces 

If 1st character is slash, skip it 

Skip over any spaces 
Is Ist character slash? 
Br if not 
Point beyond slash 

Branch off to major processing routines based on first qualifier 

1*: MOV #DEFHD. R4 ; Point to table of options 

Try to find correct processing routine 
Br if don't recognize option keyuord 
Enter major processing routine 

Invalid keyword 

2$: TST R4 

BEQ 3* 

FABORT #AMBOPT 

3*: FABORT #INVOPT 



CALL 


SKPSPC 


CMPB 


(:R3), #•'/ 


BNE 


1* 


INC 


R3 



MOV 


#DEFHD. R4 


CALL 


SEARCH 


BCS 


2* 


JMP 


@<R4)+ 



.; Ambiguous or unrecognized option? 
.: Br if unrecognized 
;Ambigious option 
j Invai id option 
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2 








3 








4 








5 








6 








7 








8 








9 








10 








11 
12 
13 


000300 












14 








15 


000300 


105767 


OOOOOOQ 


16 


000304 


001004 




17 


000306 






IS 








19 








20 








21 


000316 


005767 


0000000 


22 


000322 


001004 




23 


000324 






24 








25 








26 








27 


000334 


105067 


177442 


28 


000340 


1 1 2767 


OOOOOOe 177435 


29 


000346 


1 1 2767 


OOOOOOC 177424 


30 








31 








32 








33 


000354 


012704 


000010' 


34 


000360 


004767 


0000000 


35 








36 








37 








38 


000364 


105713 




39 


000366 


001456 




40 








41 








42 








43 








44 


000370 


126727 


177407 0000000 


45 


000376 


001404 




46 


000400 


126727 


177377 OOOOOOG 


47 


000406 


001031 




48 


000410 


004767 


0000000 


49 


000414 


121327 


000047 


50 


000420 


001413 




51 


000422 


121327 


000042 


52 


000426 


001410 




53 


000430 


1 1 2367 


177346 


54 


000434 


1 1 1 300 




55 


000436 


001424 




56 


000440 


120027 


000040 


57 


000444 


001421 





5BTTL 



DEFINE/KEy 



Defjne a character string which will be substituted for some 
terminal key. 



Command format: DEFINE/KEY key string 

I n p u t s : 
R3 = Points past "/KEY" option. 

DEFKEY : 

Make sure Single line editor is genned into system 



TSTB VSLEDT 
BNE 4* 
FABORT #EM*NSL 



Is SL available?" 

Br if yes 

SL is not available 



See if any user-defined keys are al lowed 



4*: TST VKEYMX 
BNE 5* 
FABORT #EM*KNS 

; Initialize some valuer 



CLRB 
iiOVB 
MOVB 



KCODE 
tKT^NRM, KTYPE 



i Are any user-defined keys allowed? 

i Br if yes 

j User-defined keys not supported 



i No key code yet 

i Default to normal key type 



#KF*TRMiKF*ECO, KFLAG ; Initialize flags 
Process any options 



MOV 

CALL 



#KEYHD> R4 
OPTLST 



jPoint to option list 
^Process the options 



R3 should now be pointing to the key name 



TSTB 
BEQ 



(R3) 
20$ 



i Was something specified? 
; Br if not 



1*: 



If the /LETTER or /OOLDLETTER qualifiers were specifiedi the key 
is a single letter. 

Key type = letter? 

Br if yes 

Key type - goldletter? 

Br if not 

Skip up to start of string 

Is letter enclosed in quotes? 

Br if yes 

Br if yes 

Oet the letter 

Get following letter 

Br if null 

B 1 an k ? 

Br if yes 



CMPB 


KTYPE, #KT*LtT 


BEQ 


1* 


CMPB 


KTYPE, #KT*GL( 


.i;?NE 


3* 


CALL 


SKPSPC 


CMPB 


<R3),#47 


BEG 


6* 


CMPB 


<R3),#42 


BEQ 


6* 


MOVB 


<R3)+, KCODE 


MOVB 


(R3),R0 


BEQ 


2* 


CMPB 


RO, #' 


BEQ 


2* 
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58 


000446 


000432 






59 


000450 


004767 


0000000 


I 


60 


000454 


020027 


000001 




61 


000460 


001025 






62 


000462 


1 1 6767 


OOOOOOG 177312 




63 


000470 


000407 






64 










65 










66 










67 


000472 


012704 


000066 ' 


C 


68 


000476 


004767 


OOOOOOG 




69 


000502 


103414 






70 


000504 


111467 


177272 




71 










72 










73 










74 


000510 


004767 


000346 


r 


75 










76 










77 










78 


000514 


105767 


177360 




79 


000520 


00 1 523 






80 


000522 


000443 






81 










82 










83 










84 


000524 








85 










86 










07 










88 


000534 






C 



6*: 



BR 


21* 


CALL 


ACRTXT 


CMP 


RO, #1 


BNE 


21* 


MOVE 


BLKO, KCODE 


13 R 


2* 



; Not sinqle letter 

; Accrue the letter 

; Should have gotten exactly 1 char 

j Br if not 

J Save the letter as key code 



Convert key name into key code 



3*: 



MOV 


#KNMHD, R4 


CALL 


SEARCH 


BCS 


21* 


MOVE 


(R4>, KCODE 



i Point to key name table 

i Try to translate key name 

; Br if can't recognize key name 

; Set code value for key 

Accrue the associated text string and store into KTEXT 

■■'*: CALL KEYTXT ; Accrue text string 

If the associated text string is null> we are deleting the definition 

Is string null? 

Delete this key definition 

Add this key definition 



TSTB 


KTEXT 


BEQ 


KEYDEL 


BR 


KEYADD 



Invalid command syntax 
0*: FABORT #ILLCMD 
Unrecognized key name 
21*: FABORT #EM*KNU 



i Invalid command 



J Unrecogni zed key name 



TSKM2B 
KEYSOP 
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■- Set key definition option flags 



€ 
€ 
€ 



:i. 

2 

;3 

4 
5 
6 
7 
3 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
3B 
39 
40 



000544 1 5 1 467 1 77230 
000550 000207 



000552 141467 177222 
000556 000207 



000560 111400 



. SBTTL KEYSOP — bet key definition option flags 

> Set some key definition option flag. 

KEYSOP: BISB <R4>,KFLA0 ; Set option flag 
RETURN 

.SBTTL KEYROP — Reset key definition option flags 

Reset (turn off) some key definition option. 

KEYROP: BICB <R4).. KFLAG j Reset option flag 
RETURN 

. SBTTL KEYTYP — Set key definition type 

Set type of key being defined (Normal, Gold, eti:. ) 

KEYTYP: MOVB (R4),R0 ^ Get specified type 

Specially handle /GOLD with /LETTER 



000562 120027 OOOOOOG 

000566 OOlOOl-t 

000570 126727 177207 OOOOOOG 

000576 001012 

000600 000407 

000602 120027 OOOOOOG 1*: 

000606 00 1 006 

000610 126727 177167 OOOOOOG 

000616 001002 

000620 112700 OOOOOOG 3*: 



CMPB 


RO, #KT*GtD 


BNE 


1* 


CMPB 


KTYPE, #KT*LLrT 


BNE 


2* 


BR 


3* 


CMPB 


RO, #KT*LET 


BNE 


2* 


CMPB 


KTYPE, #KT*GLD 


BNE 


2* 


MOVB 


#KT*GLT, RO 



000624 110067 177153 



000630 000207 



; Set new key type 

i 

2*: MOVB RO, KTYPE 

i 

> F 1 n i shed 

RETURN 



Is type /GOLD? 

Br if not 

Is current type /LETTER? 

Br if not 

; Is type /LETTER? 

i Br if not 

.: Is current type /GOLD? 

; Br if not 

; Set type to gold-letter 



; Set key type 



TSKM2B 
KEYADD 



1 
2 
3 
4 

\.t 

6 

7 

e-i 

9 
10 
11 
12 
13 
14 
15 
1.6 
17 
18 
19 
20 
21 
22 
23 
24 
25 



28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
4!:> 
46 
47 
48 
49 
50 
51 
52 
53 
54 
5v) 
56 
57 
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— Acid a neui k«y definition 

. SBTTL KEYADD ■ — Add a new key definition 

Add a new key definition. 

Input r>; 

KCODE = Key character code <KC*xxx). 

KTYPE =-- Key type code <KT*xxx). 

K1EXT ~- Asciz string to be defined for key. 

KEYADD: 

Don't allouj /NOECHO to be specified uith /NOTERMINATE 



000632 



000632 032 767 OOOOOOC 177140 

000640 00 1 004 

000642 



000652 00 5767 OOOOOOG 

000656 001003 

000660 004767 000374 

000664 000402 



000666 004767 000366 



BIT #KF*ECOiKF*TRM, KFLAG ; Either ECHO or TERMINATE specified? 

BNE 5* ; Br if yes 

FABORT #EM*KNT ; Can't have both NOECHO and NOTERMINATE 

Create a PLAS region for key definitions if we don't already have one 



5*: 



TST 


KEYRCB 


BNE 


1* 


CALL 


KEYREO 


BR 


4* 



; Do we have a key region^' 

i Br if yes 

; Create PLAS region and map to it 



000672 016700 177104 
000676 004767 000310 
000702 103012 



000704 005000 

000706 004767 000300 

000712 ;l 03006 



000714 004767 000636 
000720 



1*: 



4*: 



Set up PAR 1 to map to the key region 

CALL KEYREO i Map a par to the key region 

Try to find an existing definition for this key 

; Get key code 

i Try to find existing definition 

j Br if found existing entry 



MOV 


KCODE, RO 


CALL 


KEYSRC 


BCC 


2* 



Try to find a free entry 



CLR 


RO 


CALL 


KEYSRC 


BCC 


2* 



EError — No free entrif^n 

CALL KEYUMF 
FABORT #EM*KTF 



Look for free entry 
Br if found free entry 



i Unmap par 

; Key tab le full 



The entry to use ip pointed to by R2. 
Make the entry. 



000730 016762 177046 OOOOOOG 2$: 

000736 116762 177036 OOOOOOG 

000744 062702 OOOOOOG 

000750 012703 000100' 

000754 112322 3$: 

000756 001376 



MOV 

MOVB 

ADD 

MOV 

MOVB 

BNE 

F i n i E- h e d 



KCODE, KD*C0D<R2)i Save key code 

KFLAG, KD*FLG<R2.i; Save option flags 

#KD*rXT.' R2 i Point to area for text string 

#KTEXT, R3 

(R3)+, <R2)+ ; Store the string 

3* 



1 
< 
f 

t 
i 
I 
I 

< 
I 

4 

I 
t 
i 
i 
4 
K 
i 
< 
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KEYADD — Add a neuJ key definition I 

58 000760 004767 000572 CALL KEYUMP .; Unmap par 



59 000764 000167 OOOOOOG JMP RDCMD 



€ 
€ 
€ 



I 
€ 
t 

f 

< 
< 

i 

€ 

4 
{ 
i 
4 
I 
I 
I 
{ 



i 
i 

€ 
€ 



TSKM2B — 
KEYDEL -- 

1 



Keyboard DEFINE Comma MACRO 
Delete a key definition 



3 








A 








5 


000770 






6 








7 








8 








9 


000770 


005767 


OOOOOOG 


10 


000774 


001430 




1.1 








12 








13 








14 


000776 


004767 


000256 


15 








16 








17 








IS 


001002 


016700 


176774 


19 


001006 


004767 


000200 


20 


001012 


103417 




2i 








22 








23 








24 


001014 


005062 


0000000 


25 








26 








27 








28 


001020 


012702 


OOOOOOG 


29 


001024 


016703 


OOOOOOG 


30 


001030 


005762 


OOOOOOG 


31 


001034 


001006 




32 


001036 


062702 


OOOOOOG 


33 


001042 


077306 




34 








3S 








36 








37 








38 


001044 


004767 


000556 


39 


001050 


000402 




40 








41 








42 








43 


001052 


004767 


000500 


44 








45 








46 








47 


001056 


000167 


OOOOOOG 
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. SBTTL KEYDEL — Delete a key definition 
Delete a key definition. 
KEYDEL : 

See if there is any key region no«u. 



TST 

BEQ 



KEYRCB 
9* 



i Any key definitions now? 
i Br if not 



MOV 


KCODE. RO 


CALL 


KEYSRC 


3;!CS 


a* 



1$: 



Set up par to map to the key region 

CALL KEVREG > Map a par to the key region 

Try to find entry for Bpecified key 

} Get key code 

; Try to find existing key definition 

i Br if key not defined 

We found the key definition. Mark it as free. 

CLR KD*C0D<R2) 'Say this key no longer defined 

See if there are any remaining key definitions 

.: Point to 1st key definition entry 

J Get max # key entries 

; Is this key entry used? 

> Br if yes 

;Point to next key entry 

(Loop if more to check 

There are no remaining key definitions. 
Delete the key region. 



MOV 


#VPAR1;R2 


MOV 


VKEYMX, R3 


TST 


KD$C0D<R2) 


BNE 


8* 


ADD 


#KD**SZ, R2 


SOB 


R3, 1* 



CALL 
BR 



KEYELR 
9* 



Unmap the par 
B^: CALL KEYUMP 

F i n i s h e d 
9*: JMP RDCMD 



;Eliminate the key definition region 



j Unmap the par 



TSKM2B — Keyboard DEFINE Comma 
KE Y T X T - • ■ A i. c r u e !•: e y d f f i ft i t i o n 



3 








4 








5 








6 








7 








8 

9 








10 








11 


001062 


010246 




12 


001064 


105067 


177010 


13 








14 








15 








16 


001070 


004767 


0000000 


17 


001074 


121327 


000075 


IS 


001100 


001003 




19 


001102 


005203 




20 


001104 


004767 


0000000 


21 








22 








23 








24 


001 110 


1 1 1 300 




25 


001112 


001431 




26 


001114 


120027 


000047 


27 


00 1120 


00140:f 




28 


00U22 


120027 


000042 


29 


001126 


001014 




30 








31 








32 








33 


001130 


004767 


OOOOOOG 


34 


001134 


020027 


177777Q 


35 


001140 


101020 




36 


001142 


012700 


OOOOOOG 


37 


001146 


012702 


000100' 


38 


001152 


112022 




39 


001154 


001376 




40 


001156 


000407 




41 








42 








43 








44 


001160 


012702 


000100' 


45 


001164 


020227 


ooooooc 


46 


001170 


101004 




47 


001172 


1 1 2322 




48 


001174 


00 1 373 




49 








50 








51 








52 


001176 


012602 




53 


001200 


000207 




54 








55 








56 








57 


001202 
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. SBTTL KEYTXT -- At rrue key definition string 
Accrue the text strinq which comprises a key definition. 



1 n {< u t B : 
R3 =■ Pointer to start of text string 

Outputs: 
KIEXT ™ String in astiz form. 



KEYTXT : MOV 
CLRB 



R2, -iSP) 
KTEXT 



Skip up to start of string 



CALL 


SKPSPC 


CMRB 


<R3), #'--= 


BNE 


1* 


INC 


R3 


CALL 


SKPSPC 



Initially say no string accrued 



Skip over any spaces 

Was equal sign specified before string? 

Br if not 

Skip past equal sign 

Skip up to string start 



See if the string is enclosed in quote marks 



1*: 



MCJVB 


(R3),R0 i 


BEQ 


9* J 


CMPB 


RO. #47 i 


BEO 


2* > 


CNPB 


RO, #42 ■> 


BNE 


3* i 



Get 1st char of string 
Br if no string specified 
Single quote?" 
Br if yes 
Double quote? 
Br if not 



Accfue a string that is enclosed in quotes 



'*: 



4i&: 



CALL 


ACRSTR 


CMP 


RO, #KEYMXT -1 


BHI 


5* 


MOV 


#BLKO, RO 


MOV 


#KTEXT, R2 


MOVB 


(R0)+> <R2)+ 


BNE 


4* 


BR 


9* 



; Accrue the string 

ils string too long?" 

i Br if yes 

j Point to buffer with accrued string 

i Point to buffer where we want result 

; Move the string 

; Loop till null moved 



Accrue a string that is not enclosed in quotes 



i Point to result area 



3$: 


MOV 


#KTEXT, R2 


6*: 


CMP 


R2, #KTEXT+K 




BHI 


5* 




MOVB 


(R3)+, (R2) + 




BNE 


6* 


> 


Finished 




9$: 


MOV 
RETURN 


(SP)+, R2 



J Br if yes 

.i Move a character to buffer 

.; Loop if more to move 



i String is too long 
5*: FAB OR T #EM*STL 



j Strinq too lon< 



TSKH2B — Keyboard DEFINE Comma MACRO 
KEYSRC — Search for key definition 



4 








5 








6 








7 








S 








9 








10 








11 








12 








13 


001212 


010346 




14 








15 








16 








17 


001214 


005767 


0000000 


18 


001220 


001412 




1? 








20 








21 








22 


001222 


012702 


OOOOOOG 


23 


001226 


1 6703 


OOOOOOG 


24 


001232 


O20062 


0000000 


25 


001236 


00140'.> 




26 


001240 


062702 


OOOOOOG 


27 


001244 


077306 




2S 








29 








30 








31 


001246 


000261 




32 


001250 


000401 




33 








34 








35 








36 


001252 


000241 




37 








38 








39 








40 


001254 


012603 




41 


001256 


000207 
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. SBTTL KEYSRC — Search for key definition 

Search the key definitions for a specified key code and type. 

I n p u t E : 
RO = Key type and code 

Outputs: 
C-flag cleared ==> Found key definition. 
C-flag set ==> Key i& not defined. 
R2 = Pointer to key definition if it is found. 

KEYSRC: MOV R3, -<SP) 

See if there are any d(?fined keys 



TST 
BEO 



KEYRCB 
7* 



i Are there any defined keys? 
i Br if not 



Begin loop to search for specified key 



1*: 



MOV 
MOV 
CMP 
BEQ 
ADD 



#VPAR1> R2 
VKEYMX> R3 
RO. KD*C0D<R2) 
2* 

#KD**SZ, R2 
R3, 1* 



Key is not currently defined 



7*: 



SEC 
BR 



;Point to 1st key definition block 

J Get # of key entries 

•> .Is this the one we want? 

; Br if yes 

jPoint to next key def block 

i Loop if more to check 



.; Signal failure on return 



9* 



i We found the key definition 



2*: CLC 
i Fin i shed 



> Signal success on return 



9*: 



MOV 
RETURN 



(SP)+, R3 



TSKM2B 
KEYREG 
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■•- Create PLAS region for i<ey definiti(3n& 



1 

/-J 

(.-^ 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
23 
29 
30 
31 
32 
33 
34 
35 
36 
37 
33 
39 
40 
41 
42 
43 
44 
45 
46 
47 
43 
49 
50 
51 
52 
53 
54 
55 
56 
57 



, SBTTL KEYREO -- Create PLAS region for key definitions 

Try to associate with an existing key definition region. 
Create a new region if one does not already exist. 
Mapping is set up to actesB the key region. 



001260 010246 
001262 010346 



KEYRE<:>': MOV 
MOV 



R2, - < BP ) 
R3> -(SP) 



001264 
001272 
001276 
001302 
001306 
001312 



001316 
001336 
001340 
001346 



001350 
001354 
001360 






001372 
001400 



001402 
001406 
001412 
001416 
001422 



001424 
001426 
001430 



001432 



012767 
016703 
070327 
062703 
072327 
010367 



ooooooc ooooooc 

0000000 

ooooooe 

000077 
177772 
OOOOOOC 



103435 
032767 
00143.1. 



016700 
010067 
016067 



OOOOOOC ooooooc 



032767 
001411 



012702 
016700 
005062 
062702 
077005 



012603 
012602 
000207 



OOOOOOC 
0000000 
0000000 0000000 



)00050 



ooooooG ooooooc 



0000000 
OOOOOOG 
OOOOOOG 
OOOOOOG 



Set w^ region definition block for region creation 



MOV 
MOV 
MUL 
ADD 
ASH 
MOV 



#<RS. OBLIRS. CGRiRS. PVT>, KRDB+R. GSTS ;Init status flags 



VKEYMX, R3 

#KD**SZ.. R3 

#63. > R3 

#-6. . R3 

R3, KRDB+R. GSIZ 



; Get max # key definitions 
J Time size of each entry 
> Round up to next block size 
.: Convert to # 64~byte blocks 
i Set size of region 



Try to create the region 



. CRRG 
BCS 
BIT 
BEO 



#XAREA, #KRDB ; Try to create the region 

10* ; Br if cannot create region 

#RS. CRR> KRDB+R. GSTS i Was region successfully created? 

lOf ■> Br if not 



Save information from the region definition block 

MOV KRDB+R. GIDj RO i Get address of region control block 
MOV RO. KEYRCB j Save address of region control block 
MOV RC*BAS(RO) J KEtYPARi Save mapping value to access region 

Set up mapping to accesB the region 

CALL KEYMAP i Map PAR 1 to the region 

.If we just created a new region; initialize it. 

BIT #RS. NEW, KRDB+R. GSTS )Did we just create the region? 
BE-0 9* i Br if not 

Say no key definitions exist in region 



1$; 



MOV 
MOV 
CLR 
ADD 

SOB 

f- i n i s h e d 



9*: 



MOV 
MOV 
RETURN 



#VPAR1, R2 
VKEYMX, RO 
KD*C0D(R2) 
#KD«*SZ, R2 
RO, 1* 



<SP)+, R3 
<SP)+, R2 



.: Get pointer to 1st entry 

i Get # entr i es 

; Say this entry is free 

; Point to next entry 

i Mark all entries as free 



Error; Unable to create region 
10*: FABORT #EM*KCR ; Cannot create region 



TSKM2B - 
KBYMAP • 

1 
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2 
3 










4 








." 


5 


001442 


010346 




h 


6 








> 


7 








i 


a 








f 


9 


001444 


012767 


OOOOOOG 


OOOOOOC 


10 


001452 


016767 


0000000 


OOOOOOC 


11 


001460 


016703 


OOOOOOG 




12 


001464 


070327 


OOOOOOG 




13 


001470 


062703 


000077 




14 


001474 


072327 


177772 




15 


001500 


010367 


OOOOOOC 




16 


001504 


010367 


OOOOOOC 




17 










18 










19 










20 


001510 








21 


001530 


103406 






22 


001532 


032767 


OOOOOOG 


OOOOOOC 


23 


001540 


001402 






24 










25 










26 










27 


001542 


012603 






28 


001544 


000207 






29 










30 










31 










32 


001546 






1 



. SBTTL KEYMAP — Map PAR 1 to key definition region 
Map PAR 1 (address rajige 20000 to 37777) to the key definition region. 

KEYMAP: MOV R3, -(SP) 

Initialize windouj definition block 

MOV #WS. MAP. KWDB+W. NSTS ; Set status flags 

MOV KEYRCB, KWDB+W. NRID i Set address of region control block 

MOV VKEYMX, R3 ;Get max # key definitions 

MUL #KD$*SZ.. R3 ; Time size of each entry 

ADD #63. > R3 ; Round up to next block size 

ASH #-6. , R3 ; Convert to # 64-byte blocks 

MOV R3/ KWDB+W. WSIZ ; Set size of window 

MOV R3. KWDB+W. NLEW 

Try to create and map the window 



. CRAW 
BCS 
BIT 
BEQ 



F i T 1 i f. h e d 



MOV 
RETURN 



#XAREA/ #KWDB ; Try to create the windoiu 

10* j Br if cannot create the windoiu 

#WS. CRW, KWDB+W. NSTS ; Was windou) successfully created? 

10* i Br if not 



<SP)+, R;.i 



Error: Unable to create the window 
10*: FABORT #EM*KWC .; Unable to create window 



1 

c 
I 

4 

( 
I 

i 
i 
« 

« 
C 
i 

< 

i 

i 
i 



I 
i 

€ 
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KEYUMP — Unmap the kpy definition region 



3 

4 

5 001556 

6 

7 

a 

9 001556 
10 
11 
12 

13 001576 012767 OOOOOOC OOOOOOC 

14 001604 
15 

16 
17 

15 001624 000207 



. SBTTL KEYUMP — Unmap the key definition region 

; Eliminate the window used to access the key definition region. 

KEYUMF: 

Eliminate the ufindout 

. ELAW #XAREA, #KWDB ; Eliminate the uiindow 

Disassociate from the region but don't delete it 

MOV #RS. GBLIRS. PVT.' KRDB+R. GSTS i Set status flags 
. ELRG #XAREA> #KRDB i Di sassoc iate the region 

Finished 

RETURN 



TSKM2B 
KEYELR 



- Keyboard DEFiWE Comma MACRO V05. 04 Monday 21-Dec--87 12:53 Page 16 

- Eliminate the key definition real on 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 



001626 



001626 



001646 012767 OOOOOOC OOOOOOC 
001654 



001674 005067 OOOOOOQ 
001700 005067 0000000 



. SBTTL KEYhLR -- tJiminate the key def=inition region 

Eliminate the PLAS reiiion that is used to store key definitions. 

KEYELR: 

Eliminate the window 

. ELAW #XAREA. #KWDrf ;Eliminate the window 

Eliminate the region 

MOV #RS. GBLiRS. PVT!RS. EOR, KRDB+R. CSTS j Set status flags 
. ELRG #XAREA, #KRDB i Eliminate the region 



001704 000207 



Say reciion is gone 

CLR KEYRCB 
CLR KEYPAR 

F i n i s h e d 

RETURN 



; Reg ion is gone 



001706 



1706 
1712 
1714 



OOOOOOG 



TSKM2B — Keyboard DEFINE Comma 
SHOW KEYS 



1 
2 
3 
4 
5 
6 
7 

a 

9 
10 
11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
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. SBTTL SHOW KEYB 
Process the SHOW KEYS command. 
SHOKEY: 

See if there are any defined keys 



00 
00 
00 
00 



005767 
001005 



000167 0000000 



001726 004767 177326 



00 
00 



1732 
1736 



012702 
016703 



OOOOOOG 
0000000 



1742 
1746 



005762 
001402 



OOOOOOG 



23 
24 
25 

26 00 

27 00 
28 

29 

30 

31 001750 004767 000016 

32 

34 

35 001754 

36 001760 
37 

33 

39 

40 001762 004767 177570 

41 

42 

43 

44 00] 



062702 
077310 



OOOOOOG 



i Are there any defined keys? 

.; Br if yes 

> No defined keys 



TST KEYPAR 

BNE 1* 

. PRINT #TM*KND 

JMP RDCMD 

There are some defined keys. 
Associated the key rBf'ion. 

1*: CALL KEYREG ; Associate the key region 

Begin loop to print information for each defined key 



MOV 
MOV 



#VPAR1, R2 
VKEYMX, R3 



j Get address of first key entry 
; Get # of key entries 



See if this key entry is defined 



3*: 



TST 
BEQ 



KD$C0D<R2) 
2* 



; Is this key entry defined^' 
; Br i f not 



Print information for this key entry 

CALL KEYPRT ; Print info for the key definition 

See if there are more key entries 



?*: 



000167 OOOOOOG 



ADD #KD**SZ. R2 

SOB R3, 3* 

Disassociate the key reiiion 

CALL KEYUMP 
F i n i & h e d 

JMP RDCMD 



;Point to next key entry 
i Br if more to check 



Disassociate key region 



c 



TSKIi2B - 
KEYPRT -- 

1 
2 
3 
4 
5 
h 
7 

a 

9 
10 

11 

12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 

24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 

45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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001772 
001774 



00 1 776 
002004 
002006 
002014 
002016 
002024 
002026 
002032 



002036 
002044 
002046 
002054 
002056 
002066 
002072 
002076 
002100 
002110 
002114 



002130 
002136 
002142 
002152 
002156 



002164 
002166 
002172 
002174 
002176 
002202 
002204 
002214 



010346 
010546 



126227 
00 1 404 
126227 
001004 

000404 
012703 
004767 



001404 
126227 
00 1 04 I 

116203 
120327 
103014 

062703 

012703 
000405 

012703 

004767 
000402 



OOOOOOG 
OOOOOOG 



000005 
OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 
000040 



000100 
000010 

000011 
OOOOOOG 



002160 004767 000060 



OOOOOOG 



oi02orj 

062703 

112305 

001411; 

120527 000040 

103006 



062705 000100 



. SBTTL KEYPRT — Print key definition 
Print information about a specific key definition. 
I n p u t u : 



R2 



Pointer to key definition entry 



KEYPRT; MOV 
MOV 



R3, -(SP) 
R5, -<SP) 



OOOOOOG 
OOOOOOG 



If key type is Gold or Gold -letter, print "Gold" 

CMPB KD*TYP<R2), #KT*GLD; Key type gold? 

BEO 1* ; Br if yes 

CMPB KD$TYP(R2), #KT$Gi_T; Key type gold letter? 

BME 2* ; Br if not 



1*: .PRINT #TM*GU) 

BR 3* 

2*: MOV #5. , R3 

CALL PRTSPC 



; Print "Gold " 
; F*rint 5 spaces 



If key type is letter or gold-letter, key is a single letter 



OOOOOOG 3*: 
OOOOOOG 

4*: 



1 0* : 
11*: 



KD*TYP(R2), #KT1;LET; Letter? 
4* .: Br if yes 

KD*TYP<R2>> #KT*GLT; Gold letter? 

.; Br if not 

• Print opening quote 

; Get the letter 

;l5 it a control character? 

; Br if not 

i Print up-arroui 

j Convert char to printing value 

; Print the character 

i Print 8 spaces 

.Print the character 

; Print 9 spaces 

i Print closing quote 

i Print spaces 



CMPB 

BEQ 

CMPB 

BNE 5* 

. TTYOUT # ' " 

MOVE KD*C0D<R2). R3 

CMPB R3. #40 

BHIS 10* 

, TTYOUT •#'•■■■ 

ADD #100, R3 

. TTYOUT R3 

MOV #8. , R3 

BR 1 1 * 

jjYOUT R3 

MOV #9. . R3 

. TTYOUT # ' " 

CALL PRTSPC 

BR 6* 



We must convert key code into key name 
>*: CALL KEYCOD ; Convert key code into key name 

Now print the key definition string 

6*: MOV R2, R3 ; Point to key definition entry 

; Point to start of asciz string 

8*: MOVB (R3)+. R5 ; Get ne.xt char from string 

; Br if hit end of string 
; Is this a control character? 
; Br if not 
.; Print c arret 
.: Convert to printing character 

7*: .TTYOUT R5 ; Print the character 



MOV 


R2, R3 


ADD 


#KD*rXT. R3 


MOVB 


(R3)+. R5 


BEQ 


9* 


CMPB 


R5, #40 


BHIS 


7* 


, TTYOUT 


#136 


ADD 


#100. R 5 


. TTYOUT 


R5 



I 
( 

€ 

i 
I 
f 
4 
I 
€ 
i 



I 

I 

t c 
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BR 8* ;F*rint- rest of string 

i 'lerminate the print iinf? 

i 

9*: .PRINT #CRLF ; Terminate the print line 

i Fini sh{,>d 
> 

NOV (SP)+,Rb 

MOV <SP)+, R3 

RETURN 



TSKM2B - 


— Keyboard DEF 


KEYPRT - 


■— Print 


k e y d e 


58 


002226 


00076 J, 


59 






60 






61 






62 


002230 




63 






64 






6Sj 






66 


002236 


012605 


67 


002240 


012603 


6S 


002242 


000207 



I 

i 
I 
« 
I 



TSKM2B 
KEYCOD 
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4 
i 

i 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 



24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 



002 



00140?^ 



002264 062705 000004 

002270 005715 

002272 001370 

002274 000416 



002276 011505 

002300 012703 000014 

002304 112500 

002306 001407 

002310 120027 000052 

002314 001773 

002316 

002322 005303 

002324 000767 



002326 004767 OOOOOOG 



002332 012605 
002334 012603 
002336 000207 



. SBTTL KEYCOD 



F-'Y-int key name based on code 



Print the name of a key based on the key code in the current key 
descriptor block. The key name is printed in a 12 character field. 



I n p u t B : 
R2 ~ Pointer to key der-cr iptor block 



002244 010346 
002246 010546 



002250 012705 000070 



002254 126265 0000000 000002 1*: 



KEYCOD: MOV 
MOM 



R3, -<SP) 
R5, -(SP) 



CMPB 


KD$CDD 


BEQ 


2* 


ADD 


#4. . R5 


TST 


(R5) 


BNE 


1* 


BR 


9* 



3$: 



Enter loop to find the entry for this key code 

MOV #KNMHD+2. R5 > Point to first entry in table 

See if this is the entry we want 

KD$CDD<R2). 2<R5); Is this the entry tue want? 

; Br if yes 

; Point to next entry 
i Is there another entry 
i Br if yes 
j Should never happen 

We found the entry. Print the key name. 

Set pointer to key name string 

Get field size 

Get next character from name 

Br if hit end of name 

Is it an asterisk? 

Skip them 

Print a character 

Say one less fill character needed 

Keep printing 



MOV 


(R5),R5 


MOV 


#12. ,R3 


MOVE 


<R5)+, RO 


BEQ 


4* 


CMPB 


RO, #'«■ 


BEQ 


3* 


. ITYOUT 




DEC 


R3 


BR 


3* 



> Reached end of name. 
4*: CALL PRTSPC 
; F- i I i i B h e cl 
9$: 



Blank fill to end of field. 

i Blank fill rest of field 



MOV 
MOV 
RETURN 



<SP)+, R5 
(SP)+, R3 
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3 








4 








5 








6 








7 








8 








9 








10 


002340 


010346 




11 


002342 


010446 




12 


002344 


010546 




13 








14 








15 








16 


002346 


010267 


175500 


17 


002352 


005067 


175476 


18 


002356 


012700 


000046 ' 


19 


002362 


104375 




20 


002364 


103003 




21 


002366 


105737 


OOOOOOG 


22 


002372 


001443 




23 








24 








25 








26 








27 








28 


002374 


012702 


0000000 


29 


002400 


012703 


000004 ' 


30 


002404 


012700 


000004 


31 


002410 


012223 




32 


002412 


077002 




33 








34 








35 








36 


002414 


004767 


176640 


37 








30 








39 








40 


002420 


005002 




41 


002422 


005004 




42 


002424 


016705 


OOOOOOG 


43 


002430 


070527 


OOOOOOG 


44 


002434 


006205 




45 


002436 


010503 




46 


002440 


020327 


000400 


47 


002444 


101402 




48 


002446 


012703 


000400 


49 


002452 


004767 


000034 


50 


002456 


005202 




51 


002460 


160305 




52 


002462 


003365 




53 








54 








55 








56 


002464 


004767 


177066 


57 


002470 


005704 





. SBTTL. INIUKD — Init m'sbt key definitions from parent job 

INIUKD is called durinp the start-up processing for a virtual job 
to copy any user key definions from the parent job. 

Inputs: 
Rl ~ Current job index number. 
R2 = Index number of parent job. 



INIUKD: MOV 
MOV 
MOV 



R3, -<'oP) 
R4, -<GP) 
R5, -<SP.^ 



Bee if our parent job has any key definitions 

; Set our parejit job number 

; Clear the block number 

j Point to EMT argument block 

j Determine if parent has key defs 

i Br if it has key defs 

i Error code ==> No key defs 

.! Br if parent has no key defs 

Parent job has user key definitions. 

Copy name of PLAS region swap file to local memory before uie 

set up mapping to key rep ion. 



MOV 


R2, EMTUKC+4 


CLR 


EMTUKC+6 


MOV 


#EMTUKC, RO 


EMT 


375 


BCC 


1* 


TBTB 


e#ERRLOC 


BEQ 


9* 



1*: 



4*: 



MOV #RSFBLK, R2 

MOV #PSFNAM, R3 

MOV #4. > RO 

MOV <R2)+, <R3.) + 

SOB RO, 4* 



i Point to name cell in TSGEN 
iPoint to local name cell 
; Move 4 words 
; Move file spec to local cell 



Initialize local named region to hold our key definitions. 



CALL 



KEYREG 



J Initialize a key def region 



Begin loop to copy key definition info from parent job 



2*: 



3$: 



CLR 


R2 


CLR 


R4 


MOV 


VKEYMX,R5 


MUL 


#KD$«SZ,R5 


ASR 


R5 


hiov 


R5, R3 


CMP 


R3, #256. 


BLOS 


3* 


MOV 


#256. , R3 


CALL 


KEYMOV 


INC 


R2 


SUB 


R3, R5 


Bor 


2* 



Finished copying data 



CALL 

rsT 



KEYUMP 
R4 



Start with page 

Have not opened chan to PLAS swap file 

Get max # key definitions 

Get total # bytes for all key defs 

Get total # words 

Get # words remaining to be moved 

More than 256 left7' 

Br if not 

Move 256 words this time 

Move the key data 

Point to next block 

Get # words left to be moved 

Loop if need to move more words 



.: Release region mapping 

iDid we open chan to PLAS swap file? 



€ 
I 
« 
4 
I 

( 
% 

K 
C 
C 

( 
4 

4 



€ 
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58 002472 

59 002474 
60 

61 
62 

63 002502 

64 002504 

65 002506 

66 002510 



001403 



012605 
012604 
012603 
000207 



9$: 



BEG 



F i n i & h c? d 

MOV 
MOV 
MOV 



9* 
#1 



(SP)+, R5 
(SP)+. R4 
(SP)+> R3 



J Br if not 

i Close plan swap file channel 



RETURN 
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3 








4 








5 








6 








7 








& 








9 








10 








11 








12 








13 








14 


002512 


010246 




15 


002514 


010346 




16 


002516 


010546 




17 








IS 








19 








20 


002520 


010267 


175330 


21 


002524 


012700 


000046 ' 


22 


002530 


104375 




23 


002532 


103034 




24 


002534 


01000b 




25 


002536 


060205 




26 








27 








2S 








29 








30 


002540 


005704 




31 


002542 


001012 




32 


002544 






33 


002564 


103427 




34 


002566 


005204 




35 








36 








37 








38 


002570 






39 








40 








41 








42 


002624 


072227 


000011 


43 


002630 


062702 


OOOOOOG 


44 


002634 


012705 


ooooooe 


45 


002640 


012522 




46 


002642 


077302 




47 








48 








49 








50 


002644 


012605 




51 


002646 


012603 




52 


002650 


012602 




53 


002652 


000207 





. SBTTL KEYMOV — Move hey definition data from parent job 

Move up to one block of key definition data from our parent job 
to OUT key definition repio'^'- 

1 n p u t s : 
R2 = Number of page to be moved. 
R3 = Number of uiords to move (256 max) 
R4 = 0==>Channel not opened to PLAS suiap file; l==>Channel open. 



OutputG: 
R4 = 1== 

KEYMOV; MOV 
MOV 
MOV 



channel opi^ned to plas swap file 

R2, -<SP) 
R3, "(SP.) 
R5, -<SP) 



MOV 


R2, EMTUKCi-6 


MOV 


#EMTUKC, RO 


HMT 


375 


BCC 


1* 


MOV 


RO, R5 


ADD 


R2, R5 



Try to obtain the data by accessing in-memory image of parent job 

j Set # of block we luant 

; Point to EMT arg block 

i Try to copy data from in-memory image 

i Br if tue got the data 

; Save starting block of region in swap file 

; Add block within region 

The parent job is not in memorij. 

Open a channel to the PLAS swap file unless it is already open. 

TST R4 J Have we opened a channel to plas swap file? 

BNE 2* ; Br if yes 

LOOKUP #XAREA, #1, #PSFNAM ;Open channel to PLAS swap file 

BOB 9* j Br if error on lookup 

INC R4 > Set flag saying channel open 

Head data from plas swap file 

*: . READW #XAREA, #1 , #BLKO, R3, R5 ; Read data from plas swap file 

Move data from BLKO to kt-y def region 

1*: 



3f : 



9*: 



ASH 


#9. , R2 


ADD 


#VPAR1,R2 


MOV 


#BLKO, R5 


MOV 


<R5)+, <R2)-< 


SOB 


R3, 3* 


F i n i Er b e d 




NOV 


<SP>+, R5 


MOV 


<SP>+, r;,( 


MOV 


( SP ) +, R2 


RETURN 





; Convert block # to byte offset 
Get virtual address in region 
Point to current buffer 
Move the data 
Loop if more to move 
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1 



I 
i 

i 
I 

C 



3 








4 








5 








6 








7 








8 








9 








10 


002654 






11 








12 








13 








14 


002654 


032761 


OOOOOOG 000000 


IS 


002662 


001 00-'! 




16 


002664 






17 








18 








19 








20 


002674 


016704 


0000000 


21 


002700 


010467 


175110 


22 


002704 


004767 


000534 


23 


002710 


010467 


OOOOOOG 


24 


002714 


010467 


OOOOOOG 


25 








26 








27 








28 


002720 


004767 


OOOOOOG 


29 


002724 


004767 


OOOOOOG 


30 








31 








32 








33 


002730 


105713 




34 


002732 


001004 




35 


002734 


012701 


000001 


36 


002740 


000167 


000100 


37 








38 








39 








40 


002744 


1 2 1 327 


000057 


41 


002750 


001016 




42 


002752 


126327 


000001 000101 


43 


002760 


00 1 502 




44 


002762 


126327 


000001 000103 


45 


002770 


001404 




46 


002772 






47 


003002 


000167 


OOOOOOG 


48 








49 








50 








51 


003006 


121327 


000060 


52 


003012 


103432 




53 


003014 


121327 


000071 


54 


003020 


101027 




55 


003022 


000400 





. SBTTL RECALL tiummand 

Process the RECALL command that is used with the single line editor. 

J. n p u t G : 

R;t -- User index number 

R2 = Address of end of command string 

R3 = Address of start of command argument field. 

CMDRCL: 

Error if SL is not turned osi 

BIT #*SLON, LSW7\R1) ils Single line editor turned on? 
BNE 1* i Br if yes 

FAEORT #EM*SLO ; SL not turned on 

Advance over the RECALL command 



1*: 



MOV 


SLSPTR, R4 


MOV 


R4; RCLPfR 


CALL 


SLMVUP 


MOV 


R4, SLSPTR 


MOV 


R4, SLLPTR 



i Get ptr to last command (RECALL) 
j Save ptr to RECALL command 
; Advance to next command 
i Set new pointers 



Convert command arguments to upper case 



CALL 
CALL 



CVTTAB 
CVTUC 



.; Convert tabs and FF to spaces 

> Convert lower case letters to upper case 



TSTB 


<R3) 


BNE 


2* 


MOV 


#1, Rl 


JMP 


RCLVAl. 



See if "/ALL" was specified 



4*: 



If command has no arguments* treat it like "RECALL 1". 



; Are there any argumentsT' 
i Br if yes 

i Get command number to recall 
; Go do the recal 1 



Is there a switch present? 

Br if not 

/ALL? 

Br if yes 

/CLEAR? 

Br if yes 

Invalid option 

Ignore /CLEAR 



CMPB 


(R3), #V 


BNE 


3* 


CMPB 


KR3). #'A 


BEG 


RCLALL 


CMPB 


1<R3),#'C 


BEG 


4* 



FAB OR T #INVOPT 
JMP RDCMD 



If the first character i& a digit, then we are recalling a specific line 

3*: CMPB <R3).#'0 ils this a digit? 

j Br if not 



j Numeric parameter 



CMPB 


<R3). # 


'0 


BLO 


RCLSTR 




CMPB 


(R3).. # 


'9 


BHI 


RCLSTR 




BR 


RCLNUM 





i 
i 
I 
I 
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c 



.1 

2 








3 








4 


003024 






6 
7 
S 


003024 


004767 


OOOOOOG 


9 


003030 


105700 




10 


003032 


00 1 40^1 




11 

12 
13 


003034 












14 








15 








16 


003044 


016704 


OOOOOOG 


17 


003050 


005301 




18 


003052 


003406 




19 


003054 


004767 


000364 


20 


003060 


020467 


OOOOOOG 


21 


003064 


001371 




22 


003066 


000402 




23 








24 








25 








26 


003070 


010467 


OOOOOOG 


27 


003074 


000167 


OOOOOOG 



Fiscal 1 a command whose index number is specified. 
RCLMUM: 

Accrue the number 



CALL ACRDEC 

TSTB RO 

Bt~Q RCLVAL 

FABORT #EM$CSE 



j Accrue the decimal value 
jNull should be the delimiter 

iBr if ok 

; Syntax error 



The index number of the command to recall is in Rl. 
RecBll that command. 



j Get ptr to last saved line 

; Need to go back to an earlier line? 

iBr if not 

; Move back to earlier line 

^Wrapped around to beginning? 

i Bt if not 

i Nothing to recall 



Set pointer to line to recall when next input is done 



RCLVA 


L: MOV 


SLSPTR, R4 


1*: 


DEC 


Rl 




BLE 


2* 




CALL 


BLMVUP 




CMP 


R4, SLSPTR 




BNE 


1* 




BR 


9* 



2*: 
9*: 



MOV 
JMP 



R4, SLRPTR 
RDCMD 



Recall this line on next input 



y 



TSKM2B --- Keyboard 
RLCALL command 



1 
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3 
4 


003100 


016704 


OOOOOOQ 


5 
6 


003104 


005001 




7 

8 








9 


003106 


005201 




10 


003110 


010405 




1 1 


0031 12 


1 0302 




12 


003114 


105712 




13 


003116 


001752 




14 


003120 


112500 




15 


003122 


001412 




16 


003124 


020027 


000141 


17 


003130 


103405 




18 


003132 


020027 


000172 


19 


003136 


101002 




20 


003140 


162700 


000040 


21 


003144 


122200 




22 
23 
24 


003146 


00 1 762 










2i5 








26 








27 


003150 


004767 


000270 


28 


003154 


020467 


OOOOOOG 


29 


003160 


001352 




30 


003162 


000167 


0000000 



Recall a command bu searching for a specific character string, 



RCLSTR: MOV 
CLR 



SLSPTR. R4 
Rl 



i Point to most recently saved command 
j Init command recall index 



Compare target string with Ist characters of command 



5*: 



1$: 



4*: 



INC 

MOV 

MOV 

TSTB 

BEQ 

MOVB 

BEQ 

CMP 

BLO 

CMP 

BHI 

SUB 

CMPB 

BEQ 



Rl 

R4, R5 

R3. R2 

(R2) 

RCLVAL 

<R5>+, RO 

3« 

RO, #'a 

4* 

RO, #'z 

4* 

#40, RO 

<R2)+, RO 

1* 



Increment command recall index 

Oet ptr to saved command 

Set ptr to target string 

Are tue at the end of the target string? 

Br if hit end of target 

Get next char from saved cmd 

Br if hit end of saved cmd 

Cvt lower-case to upper case 



i DoeB target match saved cmd? 
iLoop if yes 



This command does not match target. 
Advance to the next saved command. 



3*: 



CALL 
CMP 
BNE 
JMP 



SLMVUP 
R4, SLSPTR 
5* 
RDCMD 



; Advance to next saved command 
i Wrapped around to beginning? 
i Br if not 
^Nothing to recall 



I 

c 
t 
I 
t 
< 
i 
c 
c 
I 

€ 
€ 

f 
4 
4 
I 
4 
4 
< 
4 



TSKM2B 
RECALL 



--- Keyboard 
command 
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1 
2 
3 
4 
5 
6 
7 

a 

9 
10 
1 1 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 



Recall all commands -— Display the commands. 



003166 
003172 
003176 
003202 
003206 
003210 



003220 
003226 
003230 
003232 
003234 
003240 
003244 
003246 
003252 
003254 



003262 
003266 
003270 
003272 
003274 
003300 
003302 



003302 
003306 
003310 
003314 
003316 



016704 
01270!'> 
012703 
105767 
00 1 402 
004767 



0000000 
000001 
000003 
OOOOOOG 

000106 



003214 004767 OOOOOOG 



010402 
1 1 2200 
001410 



020227 
10377.1 
012702 
000766 



105767 
001405 
005305 
001411 
004767 
000745 



004767 
005205 
020467 
00 1 337 
000167 



OOOOOOG 



OOOOOOG 



OOOOOOG 



000064 



000136 



174500 



OOOOOOG 



JLALL: 


MOV 


SLSPTR, R4 




MOV 


#1, R5 




MOV 


#3, R3 




TSTB 


RCLREV 




BEG 


3* 




CALL 


FIND20 



i Point to most recently saved command 

i Initialize command index # 

.; Set # columns to print 

j Display commands in reverse order? 

; Br if normal order 

; If reverse order* find 20th/la5t command 



Print the command index number 



3*: 



1$: 



2*: 



CALL PRTFIX 

Now print the command tp:<t 

. PRINT ttCOLSPC 

MOV R4, R2 

MOVB (R2)+, RO 

BEQ 2* 

. TTYOUT 

CMP R2, ttSLLEND 

BIO 1* 

MOV #SLLBUF, R2 

BR 1* 

.PRINT #CRLF 

Advance to the next command 



4*: 



8$: 
9*: 



TSTB 


RCLREV 


BEQ 


4* 


DEC 


R5 


BEQ 


9* 


CALL 


SLMVDN 


BR 


3* 


CMP 


R5. #20. 


BHIS 


9* 


CALL 


SLMVUP 


INC 


R5 


CMP 


R4, RCLP TR 


BNE 


3* 


JMP 


RDCMD 



; Print command index number 



; Print colon* space 

i Get ptr to start of command text 

; Get next char to print 

; Br if hit end of string 

i Print it 

sHit end of buffer^' 

i Br if not 

; Wrap around to the top 

i Print CR-LF 



Normal or revevBe order? 

Br if normal order 

Any commands left to display? 

Br if not 

Else find previous command 

And br back to display it 

Displayed 20 commands? 

That is enough 

Advance ptr to next command 

Inc command index number 

Is there another saved command? 

Br if yes 



f 

< 

I 
f 
1 
I 
( 
I 
( 

< 

( 

i 
i 
i 

i 
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1 
2 
3 
4 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 
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21 
22 
23 
24 
25 



003322 
003324 
003330 
003332 
003336 
003340 
003342 
003346 
003350 



003352 
003354 
003360 
003362 



This routine finds the 20th or last command available in the SL 
recall buffer. It is used when recalling commands in reverse order. 



I n [I u t B : 

R4 = Pointer to most recent saved command 



Outputs: 

R4 = Pointer to last or 20th 
R5 = Number of last command 



commands whichever comes first 



010246 
012705 
010402 
004767 
020402 
001405 
020467 
001402 
005205 



000767 
004767 
012602 
000207 



000001 



000106 



1 74446 



000004 



FIWD20: 


MOV 


R2,"<SP) 




MOV 


#1, R5 




MOV 


R4, R2 


lli: 


CALL 


SLMVUP 




CMP 


R4, R2 




BEO 


S* 




CMP 


R4. RCLPTR 




BEQ 


8* 




INC 


R5 


i t 


CMP 


R5, #20. 


f i 


BHIS 


9* 




BR 


1* 


8*: 


CALL 


SLMVDN 


9«: 


MOV 
RETURN 


( SP ) +, R2 



In it command index 

Get copy of current command pointer 

Get pointer to previous command 

Is this where we startedT' 

Br if done 

Is this a saved recall command? 

Don't count recall commands 

Count another command 

Must this be the last 7' 

Br if so 

Look for more if not 

Back up to last command 
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.1, 

2 








3 








4 








•3 








6 








7 








8 








9 








10 








11 








12 


003364 


010246 




13 


003366 


010402 




14 


003370 


005304 




15 








16 








17 








IS 


003372 


020427 


0000000 


19 


003376 


103002 




20 


003400 


012704 


1777770 


21 


003404 


020402 




22 


003406 


001414 




23 


003410 


105714 




24 


003412 


001002 




25 


003414 


005304 




26 
27 
2S 


003416 


00076;:; 










29 








30 


003420 


020427 


0000000 


31 


003424 


101002 




32 


003426 


012704 


0000000 


33 


003432 


105744 




34 


003434 


001371 




35 


003436 


005204 




36 


003440 


012602 




37 


003442 


000207 





This routine is used to locate the beginning of the subsequent 
command in the SL command buffer. It is used when displaying 
recalled commands in reverse order. 

Inputs: 

R4 = f^ointer to beginning of current command 

Outputs: 

R4 = Pointer to next command 



SLMVDN: MOV 
MOV 
DEC 



R2, - < SP ) 
R4, R2 
R4 



J Get copy of command pointer 
iStep out of it 



Hind the end of the ne:<t command 



1*: 



?*: 



CMP 


R4, ttSLLBUF 




BHIS 


2* 




MOV 


#<SLLEND~-1> 


, R4 


CMP 


R4, R2 




BEQ 


9* 




TSTB 


eR4 




BNE 


3* 




DEC 


R4 




BR 


1* 





Past the beginning of the buffer? 

Br if not 

Wrap around if needed 

Back where we started?" 

Return if so 

Any char here?' 

Br if found a command 

Else back up some more 

And keep looking 



Found the end of a command; find its beginning 



3*: 



4*; 



91i: 



CMP 


R4, #SLLBUF 


BHI 


4* 


MOV 


#SLLEND, R4 


TSTB 


-(R4) 


BNE 


3* 


INC 


R4 


MOV 


<SP)+, R2 


RETURN 





i Past the beginning of the buffer? 

; Br if not 

.; Wrap around if needed 

; f\ char here ? 

; Yes. keep looking for beginning 

iAhai Past the begin* point back to it 



I 

4 

i 
( 
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1 

2 








4 








5 








6 








7 








8 








9 








10 








11 


003444 


010546 




12 








13 








14 








15 


003446 


010405 




16 


003450 


020527 


0000000 


17 


003454 


103402 




18 


003456 


012705 


0000000 


19 


003462 


105725 




20 


003464 


001371 




21 








22 








23 








24 


003466 


020527 


0000000 


25 


003472 


103402 




26 


003474 


012705 


OOOOOOG 


27 


003500 


105725 




28 


003502 


001003 




29 


003504 


020504 




30 


003506 


00 1 367 




31 


003510 


000407 




32 








33 








34 








35 


003512 


020527 


0000000 


36 


003516 


101002 




37 


003520 


012705 


OOOOOOG 


38 


003524 


005305 




39 








40 








41 








42 


003526 


010504 




43 


003530 


01260!:- 




44 


003532 


000207 





This routine returns a pDint(?r to the previous saved command moving 
in an up-arrow direction. 

Inputs; 

R4 ~ Pointer to currtnt command. 

Outputs: 
R4 ™ Pointer to previous command. 

SLMVUP : MOV R 5, - ( SP ) 

Skip up to the null at the end of the current command 



lH: 



MOV 


R4, R5 


CMP 


R5, #SLL£ND 


BLO 


2* 


MOV 


#SLLBUF, R5 


TSTB 


<R5) + 


BNE 


1* 



;Hit end of buffer? 

•> Br if not 

; Wrap around to the top 

i Reached null at end of saved command? 

i Br i f not 



Mow si<ip over nulls at the end of the command 



3$: 



4*: 



CMP 


R5.. #SLLEND 




Bl 


4* 




MOV 


#SLLBUF, R5 




TSTB 


<R5) + 




i!:JNE 


5* 




CMP 


R5, R4 




BNE 


3* 




BR 


9* 





Hit end of buffer? 

Br if not 

Wrap around to the top 

More nulls to skip? 

Br if not 

Wrapped around to beginning?' 

Br if not 

Nothing to recall 



Point to 1st character of command 



5$: 



6*: 



9*: 



CMP 


R5> #SLLBUF 


BHI 


6* 


MOV 


#SLLEND, R5 


.DEC 


R5 


F i n i shed 




MOV 


R5, R4 


MOV 


(SP)+, Rb 


REiURN 





i At top of buffer now? 

; Br if not 

; Wrap around to bottom 

iPoint to Ist char of next command 



i Return pointer in R5 



TSKM2B 
GfcTSYP 
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SJBTTL GETSYP 



Accept system logon passutord 



3 

4 

5 

6 

7 

8 

9 

10 

1 1 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

Km W 

24 

27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
4/ 

48 
4V 
50 

51 

5n 

53 
54 
55 

56 



The system logon password is an optional password which the system 
may require for some lint>5 before entering the normal logon sequence. 



Inputs: 
Rl ~ Job index numb err 



003534 010246 
003536 010346 



003542 105767 OOOOOOG 
003546 00153b 



003550 052761 0000000 0000000 



003556 032761 OOOOOOG OOOOOOG 
003564 001132 



003566 042767 OOOOOOG OOOOOOG 

003574 004767 OOOOOOG 

003600 052761 OOOOOOG OOOOOOG 



003606 012705 000002 



003612 
003620 



003626 012700 000060' 

003632 016760 OOOOOOG 000002 

003640 104375 



003642 012702 OOOOOOG 

003646 042761 OOOOOOG OOOOOOG 

003654 

003660 120027 000001 

003664 00 1 472 

003666 120027 000015 

003672 00 1 770 

00367<i 120027 000012 



GETSYP: MOV 
MOV 
MOV 



R2, ~<SP) 
R3, -<BP) 



Don't ask for a password if there is none defined 



TSTB 



SYPSWD 
9* 



;Is there a defined system password? 

i B r if not 



Pretend to lock KMON to line to prevent '■Z aborts 

H I S #*PRGLK, LSWLr < R 1 ) 

Log off job immediately if it has been aborted 

BIT #*DOOFF. LSW<R1) ; Should the job be logged off? 
BME 20* J Br if yes 

Disable control-C abort iijnd control-W subprocess switch 



BIG #P2*VJR, PRIVC2 

CALL FIXPRV 

BIS #*SCCA, LSW5<R1) 



Disable subprocess use 

Transfer privilege flag to LSW tables 

Suppress control-C aborts 



Initialize count of number of times password has been entered 



MOV #2, R5 

Pr:int password prompt 

1*: .PRINT #CRLF 

. PRINT #SYPSPR 

Bet read time-out time 



MOV 


#RDTIME. RO 


MOV 


VOFFTM, 2<R0) 


ENT 


375 



A t c t' p b a line of i n p u i 



2*: 



MOV 


#BLKO, R2 


BIG 


#*ECHO, LSW2<R1) 


. TTYIN 




CMPB 


R0> #1 


BEO 


20$ 


CMPB 


RO, #CR 


HEQ 


2* 


CMPB 


RO.. #LF 



ilnit password attempt count 



i Print CR-LF 

i Print password prompt 



; Point to EMT arg block 
i Set timeout value 
; Set read time-out 



Point to buffer for input string 

Turn off character echoing 

Get next input character 

Did read time-out? 

Br if yes 

Ignore carriage return 

; End of input line? 



TSKM2B - 
GhTSYP -• 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

06 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

lO'o 

106 

107 

108 

109 

110 

111 

112 

Errors d 
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003700 
003702 
003706 
003710 
003712 
003714 



003716 
003722 
003726 
003732 



003736 
003742 
003746 
003750 
003752 
003754 
003756 



00376O 

003762 



003764 
003772 
004000 
004006 
004014 
004022 
004030 
004034 



004042 

004044 
004046 
004050 



004052 
004056 



e t e c t e d 



001405 
020227 
101362 
1 1 0022 
000760 
105012 



012703 
004767 
012703 
004767 



012702 
012703 
122213 
001003 
105723 
00 1 374 

00040;;' 



077564 
000433 



052761 
052761 
052761 
042761 
042761 
016767 
004767 



0i260l> 
1 2603 
012602 
000207 



012700 

10437;> 

000001 




0000620 



ooooooe 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



000066 ■' 



BEG 


3* 


CMP 


R2. #B! .KOH-50. 


HHl 


2* 


MOVB 


RO, <R2) + 


BR 


2$ 


CLRB 


(R2) 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



MOV 


#BLKO, R3 


CALL 


CVTUC 


MOV 


#SYPSWD, R3 


CALL 


CVTUC 



; Br if yes 

; Input line too longT' 
i D r if yes 

i Store received character 
; Continue receiving input 
3$: CLRB (R2) i Store null at end of string 

Convert received and expected passtuords to upper case 

; Point to received password 
; Convert to upper case 
jPoint to expected password 
> Convert to upper case 

See if received password matches expected password 

; Point to received string 

i Point to expected password 

; Does password matchT' 

j Br if not 

.: Are we at the end of the password? 

■> Br if not 

iGot correct password 

Invalid password. 

Give one extra try then cjive up. 



4$: 



MOV 


#BLKO, R2 


MOV 


#SYPSWD, R3 


CMPB 


<R2)+, <R3) 


BIME 


5« 


TSTB 


<R3) + 


BNE 


4* 


BR 


6* 



>*: 



50B 



HR 



R5.. 1* 

20* 



jLoop if user gets another try 
; Give up 



Paii^Bword successfully entered 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



3*: 



B.IS 
BIS 
BIS 
BIC 
BIC 
MOV 
CALL 



J Turn echoing back on 

; Reset flags for start-up command file 



#«ECHO. LSW2(R1) 

#*NOIN, LSW3<R1) 

#*SUCF, LSW9<R1) 

#*PRGLK, LSW5<R1) i Unlock KMON 

#*SCCA, LSW5(Ri ) i Remove control~C suppression 

PRIVA2, PRIVC2 ; Reset privilege flags 

FIXPRV j Transfer privilege flag to LSW tables 



. PRINT #CRLF 



; Print CR-LF 



F i (i i s h e d 



9*: 



MOV 
MOV 
MOV 
RETURN 



(SP>+, R5 
<SP)+, R3 
<SP)+, R2 



f'as&word not success f'ul ly entered. 
Log off the job. 



20*: 



MOV 
EM7 



#HNGEMT.. RO 
375 



,; Point to logoff emt 
.; Log off the job 



I 

i 
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Work f i 1 B read & 
W {;'■(• k f i 1 e urr i t e b 
Size of work file 
Size of core pool 
Operating system 













10176 


Words 


1 7720 


Words 


RT 11 





( 40 Pages) 
( 70 Pages) 



Elapsed time: 00:00:47.45 

DK: TSKM2B. LP: TSKM2E=DK: TSKM2B. MAC/C/N: SYM 



I 
I 

4 
I 
f 

< 
i 
i 
4 

i 

< 
t 
< 

i 
i 
i 
i 

4 

I 
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*DOOFF 


1-25 


29-2''! 






*ECHO 


i-29 


29-!.:- 1 


29 


•90 


$NOIN 


1-29 


29-91 






-$FRGLK 


1-27 


29~^;?o 


29- 


-93 


*SCCA 


1-27 


29-31 


29- 


-94 


'eSLOlM 


1-25 


22-14 






*SUCF 


1-29 


29-92 






. . . VI 


13-21 


14-20 


15 


-9 




18-39 


18-55 


18- 


-57 




2S-17 


25-21 


25- 


-26 


. . . V2 


20-59 


20-f57# 


21- 


-32 


ACRDEC 


1-31 


23-0 






ACRSTR 


1 -34 


ii-<r3 






ACRTXT 


1-28 


7-tv9 






AMI? OPT 


1-36 


6-29 






BFLL 


1-51# 








BLANK 


1-S0# 








BLKO 


1-30 


1 -34 


2- 


-34 


DLKWDS 


l-55# 








CMDDEF 


1-21 


6-9# 






CMDRCL 


1-21 


22-10# 






COLSPC 


2-50# 


25-17 






COMMA 


l-54# 








CR 


l-49# 


29-5rJ 






CRLF 


1-30 


18-62 


25- 


-26 


CVTTAB 


1-36 


6-9 


22 


-28 


CVTUC 


1-28 


22-29 


29- 


-68 


DEFHD 


4-4# 


6-20 






DEFKEY 


4-f} 


7~.l \¥i 






EM«CSE 


1 -26 


23-11 






EM*KCR 


1 -33 


13-^;7 






EM*KNS 


1-31 


7-23 






EM*KNT 


1-33 


9-16 






EM*KNU 


1-38 


7-B8 






EM*KTF 


1-38 


9-4^ 






EM$KWC 


1 --33 


14-32 






EM*NSL 


1 -32 


7- J 7 






EM'*SLO 


1-25 


22-16 






EM*STL 


1-34 


11 -^'7 






EMTUKC 


2~30# 


20~16fi 


20- 


-17 


ERRLOC 


1-31 


20-21 






FH 


i-53# 








FIND20 


25-9 


26-J2# 






FIXPRV 


1-27 


29-30 


29- 


-96 


FKILL 


1-36 


6-29 


6- 


-30 




22-16 


22-46 


23- 


-11 


GET3YP 


1-21 


29-V# 






HNCEMT 


2"4 4# 


29-109 






ILLCMD 


1 ^rj'Z' 
J. ^» '^ 


7-ii4 






INIUKD 


1-21 


20-10# 






INVOPT 


1-26 


i-;j3 


6- 


-30 


KC*COM 


1-40 


5-;.!0 






KC*DOT 


1-40 


5-;.'9 






KC*DWN 


1-41 


5-37 






KC*E1 


1-41 


5-:<B 


5- 


-44 


KC*E2 


1-41 


5-39 


5- 


-45 



15-14 16-9 16-14 17-11 18-17 18-28 18-32 18-34 18-37 

18-62 19-33 20-59 20-59 21-32 21-32 21-32 21-38 21-38 

2t?~3c? oo-jcin '-/o„o-/ 

21-32 21-32# 21-32# 21-38 21-38 21-33# 21-38# 



7-62 11-36 21-38 21-44 29-50 29-59 29-67 29-74 



29-39 29-97 

29-70 



21 20* 21-21 



7-17 7-23 7-84 7-SS 9-16 9-44 11-57 13-57 14-32 



•46 
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Cross r 


e f e V e n c e 


tab 1 e ■; (:RE!' 


V05. 04) 












KC$E3 


1-41 


5-40 


5-46 












KC*E4 


1-41 


5-4 1 


5-47 












KC*E5 


1-42 


5-42 


5-48 












KC*E6 


1-42 


5-43 


5-49 












KC*ENT 


1-40 


5-32 














KC^FIO 


1-42 


5~r/5 














KC^Fll 


1-42 


5-t>6 














KC'$Fi2 


1 43 


5 l// 














KC*F13 


1 43 


5--;:>o 














KC*F14 


1-43 


5-b9 














KC*F15 


1 -43 


5-r^o 


5-60 












KC*F16 


1-43 


5-36 


5-61 












KC*F17 


1-43 


5-^2 














KC*F18 


1-43 


5~Mi 














KCIiFl? 


1-44 


5-64 














KC$F20 


1 -44 


5-65 














KC*F6 


1-42 


5~t>l 














KC'SF? 


1-42 


5-1)2 














KC*F8 


1-42 
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